Electronics Boutique Catalog 1996 Spring/1996 Electronics Boutique Spring CD-ROM (USA).bin/eb/ak.dir/00011.ls

Text File | 1996-03-18 | 588 b | 19 lines

on nextLocation
  global mapflag, locationCast, storeTotal, mapCast
  if mapflag > 0 then
    set x to locationCast - 1
    if (mapCast - x) > storeTotal then
      set locationCast to mapCast - 1
    else
      set locationCast to x
    end if
    if the castType of cast locationCast = #text then
      set storeNumber to mapCast - locationCast
      set ButtonText to "Store" && storeNumber && "of" && storeTotal
      set the text of cast "nextButton" to ButtonText
      set the text of cast "storeLocation" to the text of cast locationCast
    end if
    updateStage()
  end if
end